home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / demo607.dxr / Internal (lingo)_3.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  314 b   |  15 lines
  1. on exitFrame
  2.   global gMouseDownScript
  3.   set gMouseDownScript to 1
  4.   hDecreaseSound(2, 128, 255)
  5.   cursor(-1)
  6.   go("demo")
  7. end
  8.  
  9. on hDecreaseSound pSoundChannel, pMinVolume, pMaxVolume
  10.   repeat with i = pMaxVolume down to pMinVolume
  11.     set the volume of sound pSoundChannel to i
  12.     updateStage()
  13.   end repeat
  14. end
  15.